home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / zint.arc / ZINT.PAS < prev   
Pascal/Delphi Source File  |  1986-08-12  |  435b  |  21 lines
  1. type
  2.   Regtype     = record Ax,Bx,Cx,Dx,Bp,Si,Di,Ds,Es,Flags:integer  end;
  3.   HalfRegtype = record Al,Ah,Bl,Bh,Cl,Ch,Dl,Dh:byte              end;
  4.  
  5. var
  6.   i : integer ;
  7.  
  8. procedure zero_int(int:byte) ;
  9. var
  10.   saveregs : regtype ;
  11.  
  12. begin
  13.   SaveRegs.Ax := $25 shl 8 + Int;
  14.   SaveRegs.Ds := 0 ;
  15.   SaveRegs.Dx := 0 ;
  16.   Intr($21,SaveRegs);  { set the interupt to 0 }
  17. end ;
  18.  
  19. begin
  20.   for i := $60 to $70 do zero_int(i) ;
  21. end .